﻿Namespace Cartes.MatieresPremieres.AgeI

    Public Class Excavation
        Inherits CarteMatierePremiere

        Public Overrides ReadOnly Property NomBatiment As String
            Get
                Return "Excavation"
            End Get
        End Property

        Public Overrides ReadOnly Property Age As Integer
            Get
                Return 1
            End Get
        End Property

        Public Overrides ReadOnly Property FrequenceCarteNombreJoueur As List(Of Integer)
            Get
                Return New List(Of Integer) From {4}
            End Get
        End Property
        Public Overrides ReadOnly Property CoutRessource As List(Of Carte.TypeRessouce)
            Get
                Return New List(Of Carte.TypeRessouce) From {Carte.TypeRessouce.PieceMonaie}
            End Get
        End Property

        Public Overrides ReadOnly Property Gratuite As List(Of Carte)
            Get
                Return New List(Of Carte)
            End Get
        End Property

#Region "Constructeur"
        Public Sub New()
            Me.Effet.Add(New List(Of Carte.TypeRessouce) From {Carte.TypeRessouce.Pierre})
            Me.Effet.Add(New List(Of Carte.TypeRessouce) From {Carte.TypeRessouce.Argile})
        End Sub
#End Region
    End Class
End Namespace
